home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / rexx / FWCalendar.lha / FWCalendar / Canadian / FWCalendar.prefs
Text File  |  2000-10-23  |  2KB  |  34 lines
  1. /* Dataversion v4.09b */
  2. ImageClass.Birthday = 'WB:Rexx/Images/Birthday.iff'
  3. ImageClass.Anniversary = 'WB:Rexx/Images/Anniversary.iff'
  4. /* End Pass One - DO NOT DELETE THIS LINE!!! */
  5. 01Highlight.1.1 = "New Year's Day", '<Clear>'
  6. 02Highlight.2.2  = "Groundhog Day"
  7. 02Highlight.2.14 = "St. Valentines Day"
  8. 03Highlight.3.1  = "St. David's Day"
  9. 03Highlight.3.17 = "St. Patricks Day"
  10. 03Highlight.3.20 = "1st Day of Spring"
  11. 04Highlight.4.1 = "April Fool's Day", '<Clear>'
  12. 04CalculateDate(4, 'Monday', 7, 'Start DST', '<Clear>')  /* 1st Sun in Apr */
  13. 04CalculateDate(4, 'Thursday', 30, 'Arbor Day', '<Clear>')  /* Last Fri in Apr */
  14. 05CalculateDate(5, 'Monday', 14, "Mother's Day", '<Clear>')  /* 2nd Sun in May */
  15. 05CalculateDate(5, 'Tuesday', 28, 'Victoria Day', '<Clear>')  /* 4th Mon in May */
  16. 06CalculateDate(6, 'Monday', 21, "Begin Nat'l Public Service Week", '<Clear>')
  17. 06CalculateDate(6, 'Monday', 21, "Father's Day", '<Clear>')  /* 3rd Sun in Jun */
  18. 06Highlight.6.21 = '1st Day of Summer', '<Clear>'
  19. 07Highlight.7.1 = 'Canada Day', '<Clear>'
  20. 08CalculateDate(8, "Tuesday", 7, "New Brunswick Day#") /*1st Mon in August */
  21. 09CalculateDate(9, 'Tuesday', 7, 'Labour Day', '<Clear>')  /* 1st Mon in Sep */
  22. 09Highlight.9.23 = '1st Day of Autumn', '<Clear>'
  23. 10CalculateDate(10, 'Tuesday', 14, 'Thanksgiving Day', '<Clear>')  /* 2nd Mon in Oct */
  24. 10CalculateDate(10, 'Friday', 31, 'End DST', '<Clear>')  /* Last Sun in Oct */
  25. 10Highlight.10.31 = 'Halloween', '<Clear>'
  26. 11Highlight.11.11 = 'Remembrance Day', '<Clear>'
  27. 12Highlight.12.25 = 'Christmas Day', '<Clear>'
  28. 12Highlight.12.26 = 'Boxing Day', '<Clear>'
  29. CalculateEDate(-46, "Ash Wednesday")
  30. CalculateEDate(-7, "Palm Sunday")
  31. CalculateEDate(-2, "Good Friday")
  32. CalculateEDate(-3, "Holy Thursday")
  33. CalculateEDate(0, "Easter#")
  34.